home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / s / GetFile < prev    next >
Text File  |  1997-06-05  |  297b  |  12 lines
  1. /* GetFile and pass result to CDPrefs */
  2.  
  3. parse arg variable default
  4. address 'Gui4Cli'
  5.  
  6. path = left(default,max(pos('/',default),pos(':',default)))
  7. file = substr(default,max(pos('/',default),pos(':',default)) + 1)
  8.  
  9. 'SetVar' variable  '"`RequestFile drawer' path 'file' file 'title' variable'`"'
  10.  
  11.  
  12.